Visual basic - primjeri
Vrsta: Seminarski | Broj strana: 30 | Nivo: Fakultet poslovne informatike APEIRON

Visual Basic је програм контролисан (покретан) догађајима. Догађаји се могу појавити као акција корисника као што је: клик мишем, избор ставке из менија или као резултат акције неког другог прграма, дијела програма и сл.
У „процедуралним“ програмима сам програм контролише редослијед извођења појединих дијелова програмског кода. Извођење почиње првом „извршном“ наредбом и слиједи унапријед одређене путање.
У програму управљаном догађајима програмски код не слиједи унапријед одређене путање, већ се изводе различити дијелови програмског кода као одговори на догађаје. Догађаји могу бити покренути акцијом корисника, порукама система или других програма као и самог програма, чији су дио. Редослијед тих догађаја одређује путању којом ће програмски код бити изведен.
Будући да се не може предвидјети редослијед догађаја (па ни који ће се догађај „догодити“, а који не), програмски код мора узети у обзир неке предпоставке о „општем стању“ када се почне изводити-нпр. садржи ли поље за упис податка неку вриједност или не и сл.
Ови ријешени примјери не садрже све елементе потребене за приказ ситуација које могу наступити у програмима управљаним догађајима. Програми настоје пратити нјчешћу логику која се примјењује при рјешавању ове врсте задатака. Исто тако, настоје приказати различите типове рјешења истог или сличног програмског проблема користећи могућности Visual Basic-a.
Задатак 1: Најмањи садржилац
Написати програм који израчунава најмањи заједнички садржилац два унесена цијела броја.
Иницијални назив
објекта Нови назив Нови текст MaskedTextBox1 mtxt_PrviBroj MaskedTextBox2 mtxt_DrugiBroj TextBox1 txt_Rezultat Label1 lbl_PrviBroj Prvi broj Label2 lbl_DrugiBroj Drugi broj Label3 lbl_Sadrzilac Zajednicki sadrzilac Button1 btn_Izracunaj Izracunaj
Проблем се рјешава са двије until петље, при чему је једна петљa угнијежђена у другу. Првом петљом контролишем бројеве и петља се извршава док бројеви нису једнаки јединици, исто тако мијењам вриједност бројача помоћу кога вршим дијељење бројева и акумулирам садржилац.
Друга петља дијели бројеве (раставља бројеве на просте факторе) и то за вриједност бројача док је остатак једнак нули. Имам три различита случаја:
оба броја дјељива-дијелим оба (цјелобројно)
први број дјељив-дијелим први
други број дјељив-дијелим други
Кад бројеви нису дјељиви бројачем излазим из угнијежђене петље и мијењам вриједност бројача.
Private Sub btn_Izracunaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Izracunaj.Click
' potrebne promjenjive
Dim PrviBroj, DrugiBroj, Sadrzilac, Brojac As Integer
Dim OstatakPrvi, OstatakDrugi As Integer
' postupak u slucaju greske
On Error GoTo Greska
PrviBroj = mtxt_PrviBroj.Text
DrugiBroj = mtxt_DrugiBroj.Text
If mtxt_PrviBroj.Text = "" Or mtxt_DrugiBroj.Text = "" Then GoTo Greska
' pocetne vrijednosti potrebnih promjenjivih
Sadrzilac = 1
Brojac = 1
'radi dok oba broja nisu jednaka jedinici
Do Until (PrviBroj = 1 And DrugiBroj = 1)

---------- CEO RAD MOŽETE PREUZETI NA SAJTU. ---------- 

www.maturski.org 

 

MOŽETE NAS KONTAKTIRATI NA E-MAIL: [email protected]